home *** CD-ROM | disk | FTP | other *** search
- object frmMain: TfrmMain
- Left = 620
- Top = 124
- BorderIcons = [biSystemMenu]
- BorderStyle = bsSingle
- Caption = 'Macro Scheduler'
- ClientHeight = 252
- ClientWidth = 251
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- Position = poScreenCenter
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 7
- Top = 9
- Width = 42
- Height = 13
- Caption = 'Macros :'
- end
- object Image1: TImage
- Left = 188
- Top = 152
- Width = 41
- Height = 33
- Picture.Data = {<image001.ico>}
- end
- object lblTime: TLabel
- Left = 177
- Top = 190
- Width = 10
- Height = 16
- Font.Color = clBlue
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsItalic]
- ParentFont = False
- end
- object lstMacros: TListBox
- Left = 8
- Top = 24
- Width = 152
- Height = 185
- ItemHeight = 13
- TabOrder = 0
- end
- object btnOK: TButton
- Left = 8
- Top = 220
- Width = 75
- Height = 25
- Caption = 'OK'
- TabOrder = 1
- OnClick = btnOKClick
- end
- object btnQuit: TButton
- Left = 88
- Top = 220
- Width = 75
- Height = 25
- Caption = 'Quit'
- TabOrder = 2
- OnClick = btnQuitClick
- end
- object Button1: TButton
- Left = 168
- Top = 220
- Width = 75
- Height = 25
- Caption = 'About...'
- TabOrder = 3
- OnClick = Button1Click
- end
- object btnNew: TButton
- Left = 168
- Top = 24
- Width = 75
- Height = 23
- Caption = 'New'
- TabOrder = 4
- OnClick = btnNewClick
- end
- object btnEdit: TButton
- Left = 168
- Top = 48
- Width = 75
- Height = 23
- Caption = 'Edit'
- TabOrder = 5
- OnClick = btnEditClick
- end
- object btnDelete: TButton
- Left = 168
- Top = 72
- Width = 75
- Height = 23
- Caption = 'Delete'
- TabOrder = 6
- OnClick = btnDeleteClick
- end
- object btnRunNow: TButton
- Left = 168
- Top = 96
- Width = 75
- Height = 23
- Caption = 'Run Now'
- TabOrder = 7
- OnClick = btnRunNowClick
- end
- object btnRecord: TButton
- Left = 168
- Top = 120
- Width = 75
- Height = 23
- Caption = 'Record'
- TabOrder = 8
- OnClick = btnRecordClick
- end
- object sk: TSendKeys
- Left = 210
- Top = 227
- end
- object tmrScheduler: TTimer
- OnTimer = tmrSchedulerTimer
- Left = 181
- Top = 227
- end
- object pop1: TPopupMenu
- Left = 208
- Top = 216
- object popSettings: TMenuItem
- Caption = 'Settings'
- ShortCut = 0
- OnClick = popSettingsClick
- end
- object popAbout: TMenuItem
- Caption = 'About'
- ShortCut = 0
- OnClick = popAboutClick
- end
- object N1: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object popExit: TMenuItem
- Caption = 'Quit'
- ShortCut = 0
- OnClick = popExitClick
- end
- end
- object Validator: TValidator
- RandSeed = 260172
- OnVldOk = ValidatorVldOk
- OnVldFailed = ValidatorVldFailed
- Left = 192
- Top = 232
- end
- object Encrypt1: TEncrypt
- Left = 215
- Top = 192
- end
- end
-